home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 7 / DOS222.dsk / BEEP.LEARN.bas < prev    next >
BASIC Source File  |  2012-02-16  |  7KB  |  173 lines
  1. 100  HOME 
  2. 110  FOR D = 1 TO 500: NEXT D
  3. 115  GOSUB 5000
  4. 130  VTAB 2: PRINT "THE"
  5. 140  GOSUB 2000
  6. 150  GOSUB 3000
  7. 160  VTAB 2: HTAB 5: PRINT "BEST": GOSUB 2000: GOSUB 3000
  8. 170  VTAB 2: HTAB 10: PRINT "WAY": GOSUB 2000: GOSUB 3000
  9. 180  VTAB 2: HTAB 14: PRINT "TO": GOSUB 2000: GOSUB 3000
  10. 190  VTAB 2: HTAB 17: PRINT "LEARN": GOSUB 2000: GOSUB 3000
  11. 200  VTAB 2: HTAB 23: PRINT "HOW": GOSUB 2000: GOSUB 3000
  12. 210  VTAB 2: HTAB 27: PRINT "TO": GOSUB 2000: GOSUB 3000
  13. 220  VTAB 2: HTAB 30: PRINT "READ": GOSUB 2000: GOSUB 3000
  14. 230  FOR D = 1 TO 200: NEXT D
  15. 240  VTAB 4: PRINT "IS": GOSUB 2000: GOSUB 3000
  16. 250  VTAB 4: HTAB 4: PRINT "TO": GOSUB 2000: GOSUB 3000
  17. 260  VTAB 4: HTAB 7: PRINT "LEARN": GOSUB 2000: GOSUB 3000
  18. 270  VTAB 4: HTAB 13: PRINT "HOW": GOSUB 2000: GOSUB 3000
  19. 280  VTAB 4: HTAB 17: PRINT "TO": GOSUB 2000: GOSUB 3000
  20. 290  VTAB 4: HTAB 20: PRINT "READ": GOSUB 2000: GOSUB 3000
  21. 300  VTAB 4: HTAB 25: PRINT "EACH": GOSUB 2000: GOSUB 3000
  22. 310  VTAB 4: HTAB 30: PRINT "SYL": GOSUB 2000: GOSUB 3000
  23. 320  VTAB 4: HTAB 33: PRINT "LA": GOSUB 2000: GOSUB 3000
  24. 330  VTAB 4: HTAB 35: PRINT "BLE": GOSUB 2000: GOSUB 3000
  25. 340  FOR D = 1 TO 200: NEXT D
  26. 350  VTAB 6: PRINT "ONE": GOSUB 2000: GOSUB 3000
  27. 360  VTAB 6: HTAB 5: PRINT "AT": GOSUB 2000: GOSUB 3000
  28. 370  VTAB 6: HTAB 8: PRINT "A": GOSUB 2000: GOSUB 3000
  29. 380  VTAB 6: HTAB 10: PRINT "TIME.": GOSUB 2000: GOSUB 3000
  30. 390  FOR D = 1 TO 1000: NEXT D
  31. 400  VTAB 8: PRINT "YOU": GOSUB 2000: GOSUB 3000
  32. 410  VTAB 8: HTAB 5: PRINT "WILL"
  33. 420  GOSUB 2000: GOSUB 3000
  34. 430  VTAB 8: HTAB 10: PRINT "QUICK"
  35. 440  GOSUB 2000: GOSUB 3000
  36. 450  VTAB 8: HTAB 15: PRINT "LY"
  37. 460  GOSUB 2000: GOSUB 3000
  38. 470  VTAB 8: HTAB 18: PRINT "FIND"
  39. 480  GOSUB 2000: GOSUB 3000
  40. 490  VTAB 8: HTAB 23: PRINT "YOUR"
  41. 500  GOSUB 2000: GOSUB 3000
  42. 510  VTAB 8: HTAB 27: PRINT "SELF"
  43. 520  GOSUB 2000: GOSUB 3000
  44. 530  VTAB 8: HTAB 32: PRINT "READ"
  45. 540  GOSUB 2000: GOSUB 3000
  46. 550  VTAB 8: HTAB 36: PRINT "ING"
  47. 555  GOSUB 2000: GOSUB 3000
  48. 560  FOR D = 1 TO 400: NEXT D
  49. 570  VTAB 10: PRINT "FAST"
  50. 580  GOSUB 2000: GOSUB 3000
  51. 590  VTAB 10: HTAB 5: PRINT "ER"
  52. 600  GOSUB 2000: GOSUB 3000
  53. 610  VTAB 10: HTAB 8: PRINT "AND"
  54. 620  GOSUB 2000: GOSUB 3000
  55. 630  VTAB 10: HTAB 12: PRINT "BET"
  56. 640  GOSUB 2000: GOSUB 3000
  57. 650  VTAB 10: HTAB 15: PRINT "TER."
  58. 660  GOSUB 2000: GOSUB 3000
  59. 670  FOR D = 1 TO 1000: NEXT D
  60. 680  VTAB 10: HTAB 23: PRINT "YOU"
  61. 690  GOSUB 2000: GOSUB 3000
  62. 700  VTAB 10: HTAB 27: PRINT "WILL"
  63. 710  GOSUB 2000: GOSUB 3000
  64. 720  VTAB 10: HTAB 32: PRINT "FIND"
  65. 730  GOSUB 2000: GOSUB 3000
  66. 740  VTAB 10: HTAB 37: PRINT "THAT"
  67. 750  GOSUB 2000: GOSUB 3000
  68. 760  VTAB 12: PRINT "WHEN"
  69. 770  GOSUB 2000: GOSUB 3000
  70. 780  VTAB 12: HTAB 6: PRINT "YOU"
  71. 790  GOSUB 2000: GOSUB 3000
  72. 800  VTAB 12: HTAB 10: PRINT "COME"
  73. 810  GOSUB 2000: GOSUB 3000
  74. 820  VTAB 12: HTAB 15: PRINT "TO"
  75. 830  GOSUB 2000: GOSUB 3000
  76. 840  VTAB 12: HTAB 18: PRINT "A"
  77. 850  GOSUB 2000: GOSUB 3000
  78. 860  VTAB 12: HTAB 20: PRINT "WORD"
  79. 870  GOSUB 2000: GOSUB 3000
  80. 880  VTAB 12: HTAB 25: PRINT "THAT"
  81. 890  GOSUB 2000: GOSUB 3000
  82. 900  VTAB 12: HTAB 30: PRINT "YOU'VE"
  83. 910  GOSUB 2000: GOSUB 3000
  84. 920  FOR D = 1 TO 300: NEXT D
  85. 930  VTAB 14: PRINT "NEV"
  86. 940  GOSUB 2000: GOSUB 3000
  87. 950  VTAB 14: HTAB 4: PRINT "ER"
  88. 960  GOSUB 2000: GOSUB 3000
  89. 970  VTAB 14: HTAB 7: PRINT "SEEN"
  90. 980  GOSUB 2000: GOSUB 3000
  91. 990  VTAB 14: HTAB 12: PRINT "BE"
  92. 1000  GOSUB 2000: GOSUB 3000
  93. 1010  VTAB 14: HTAB 14: PRINT "FORE,"
  94. 1020  GOSUB 2000: GOSUB 3000
  95. 1030  FOR D = 1 TO 200: NEXT D
  96. 1040  VTAB 14: HTAB 20: PRINT "YOU"
  97. 1050  GOSUB 2000: GOSUB 3000
  98. 1060  VTAB 14: HTAB 24: PRINT "CAN"
  99. 1070  GOSUB 2000: GOSUB 3000
  100. 1080  VTAB 14: HTAB 28: PRINT "MAY"
  101. 1090  GOSUB 2000: GOSUB 3000
  102. 1100  VTAB 14: HTAB 31: PRINT "BE"
  103. 1110  GOSUB 2000: GOSUB 3000
  104. 1140  FOR D = 1 TO 200: NEXT D
  105. 1150  VTAB 16: PRINT "LEARN"
  106. 1160  GOSUB 2000: GOSUB 3000
  107. 1170  VTAB 16: HTAB 7: PRINT "THE"
  108. 1180  GOSUB 2000: GOSUB 3000
  109. 1190  VTAB 16: HTAB 11: PRINT "NEW"
  110. 1200  GOSUB 2000: GOSUB 3000
  111. 1210  VTAB 16: HTAB 15: PRINT "WORD"
  112. 1220  GOSUB 2000: GOSUB 3000
  113. 1230  VTAB 16: HTAB 20: PRINT "BY"
  114. 1240  GOSUB 2000: GOSUB 3000
  115. 1250  VTAB 16: HTAB 23: PRINT "SOUND"
  116. 1260  GOSUB 2000: GOSUB 3000
  117. 1270  VTAB 16: HTAB 28: PRINT "ING"
  118. 1280  GOSUB 2000: GOSUB 3000
  119. 1290  VTAB 16: HTAB 32: PRINT "OUT"
  120. 1300  GOSUB 2000: GOSUB 3000
  121. 1310  VTAB 16: HTAB 36: PRINT "EACH"
  122. 1320  GOSUB 2000: GOSUB 3000
  123. 1330  VTAB 18: PRINT "OF"
  124. 1340  GOSUB 2000: GOSUB 3000
  125. 1350  VTAB 18: HTAB 4: PRINT "ITS"
  126. 1360  GOSUB 2000: GOSUB 3000
  127. 1370  VTAB 18: HTAB 8: PRINT "SYL"
  128. 1380  GOSUB 2000: GOSUB 3000
  129. 1390  VTAB 18: HTAB 11: PRINT "LA"
  130. 1400  GOSUB 2000: GOSUB 3000
  131. 1410  VTAB 18: HTAB 13: PRINT "BLES."
  132. 1420  GOSUB 2000: GOSUB 3000
  133. 1430  FOR D = 1 TO 2000: NEXT D
  134. 1440  VTAB 20: PRINT "(C) COP"
  135. 1450  GOSUB 2000: GOSUB 3000
  136. 1460  VTAB 20: HTAB 8: PRINT "Y": GOSUB 2000: GOSUB 3000: VTAB 20: HTAB 9: PRINT "RIGHT": GOSUB 2000: GOSUB 3000: VTAB 20: HTAB 15: PRINT "1987": GOSUB 2000: GOSUB 3000
  137. 1470  VTAB 20: HTAB 22: PRINT "PHIL": GOSUB 2000: GOSUB 3000: VTAB 20: HTAB 27: PRINT "SHAP": GOSUB 2000: GOSUB 3000: VTAB 20: HTAB 31: PRINT "I": GOSUB 2000: GOSUB 3000: VTAB 20: HTAB 32: PRINT "RO": GOSUB 2000: GOSUB 3000
  138. 1480  END 
  139. 2000  PRINT  CHR$(7);
  140. 2010  RETURN 
  141. 3000  FOR D = 1 TO 150: NEXT D
  142. 3010  RETURN 
  143. 5000  SPEED= 40
  144. 5010  VTAB 2: PRINT "THIS PROGRAM IS AN EXPERIMENT I ONCE"
  145. 5020  VTAB 4: PRINT "DID WHEN I WAS THINKING ABOUT USING AN"
  146. 5030  VTAB 6: PRINT "APPLE TO HELP TEACH READING SKILLS."
  147. 5040  VTAB 8: PRINT "THE PROGRAM IS QUITE NOISY SO YOU MIGHT"
  148. 5050  VTAB 10: PRINT "NOT WANT TO RUN IT IF YOU WILL DISTURB"
  149. 5060  VTAB 12: PRINT "SOMEONE IN THE VICINITY."
  150. 5070  VTAB 14: PRINT "APPLE //c OWNERS CAN TURN THE VOLUME"
  151. 5080  VTAB 16: PRINT "DOWN ON THE DIAL AT THE LEFT SIDE OF"
  152. 5090  VTAB 18: PRINT "THE KEYBOARD."
  153. 5100  VTAB 20: PRINT "OF COURSE, YOU CAN ALWAYS QUIT BY
  154. 5110  VTAB 22: PRINT "PRESSING DOWN 'CONTROL-C'."
  155. 5120  PRINT : PRINT "- - PRESS THE SPACE BAR TO CONTINUE - -"
  156. 5130  GET M$: HOME 
  157. 5135  FOR D = 1 TO 1000: NEXT D
  158. 5140  VTAB 2: PRINT "TO BE PERFECTLY HONEST, THE PROGRAM DOES"
  159. 5150  VTAB 4: PRINT "NOT HURT THE EARS AS MUCH IF YOU DISPLAY"
  160. 5160  VTAB 6: PRINT "IT AT A FAST SPEED."
  161. 5170  VTAB 8: PRINT "ANYWAY, I'LL LEAVE THAT DECISION UP TO"
  162. 5180  VTAB 10: PRINT "YOU !"
  163. 5190  VTAB 12: PRINT "PLEASE CHOOSE A DISPLAY SPEED."
  164. 5200  VTAB 14: HTAB 20: PRINT "1. SLOW"
  165. 5210  VTAB 16: HTAB 20: PRINT "2. MEDIUM"
  166. 5220  VTAB 18: HTAB 20: PRINT "3. FAST"
  167. 5230  VTAB 20: HTAB 20: PRINT "4. SUPER-FAST"
  168. 5240  VTAB 22: GET CH
  169. 5250  IF CH = 1  THEN  SPEED= 30: HOME : FOR D = 1 TO 1200: NEXT D: RETURN 
  170. 5260  IF CH = 2  THEN  SPEED= 60: HOME : FOR D = 1 TO 1200: NEXT D: RETURN 
  171. 5270  IF CH = 3  THEN  SPEED= 110: HOME : FOR D = 1 TO 1200: NEXT D: RETURN 
  172. 5280  IF CH = 4  THEN  SPEED= 200: HOME : FOR D = 1 TO 1200: NEXT D: RETURN 
  173. 5290  GOTO 5240